home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / SegLoad.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  1.3 KB  |  65 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        SegLoad.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__SEGLOAD__') = 'UNDEFINED' THEN
  18. __SEGLOAD__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26. appOpen                            EQU        0                    ;Open the Document (s)
  27. appPrint                        EQU        1                    ;Print the Document (s)
  28.  
  29. AppFile                 RECORD    0
  30. vRefNum                     ds.w    1
  31. fType                     ds.l    1
  32. versNum                     ds.w    1                                    ;versNum in high byte
  33. fName                     ds.l    64
  34. sizeof                     EQU    264
  35.                         ENDR
  36.  
  37. ;
  38. ;    Because PowerPC applications don’t have segments,
  39. ;    UnloadSeg is unsupported for PowerPC.
  40. ;
  41.     IF GENERATING68K  THEN
  42.     IF GENERATING68K THEN
  43.         _UnloadSeg:    OPWORD    $A9F1
  44.     ELSE
  45.         IMPORT    UnloadSeg
  46.     ENDIF
  47.  
  48.     ELSE
  49.     ENDIF
  50.     IF ¬ GENERATINGCFM  THEN
  51.     IF GENERATING68K THEN
  52.         _GetAppParms:    OPWORD    $A9F5
  53.     ELSE
  54.         IMPORT    GetAppParms
  55.     ENDIF
  56.  
  57.     ENDIF
  58.     IF GENERATING68K THEN
  59.         _ExitToShell:    OPWORD    $A9F4
  60.     ELSE
  61.         IMPORT    ExitToShell
  62.     ENDIF
  63.  
  64.     ENDIF ; __SEGLOAD__
  65.